RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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NN NN NN DD DD XX VV VV RRRRRRRR SSSSSS 

NN NN NN ODD DD XX VV VV RRRRRRRR SSSSSS 

NN NNNN DD DD XX XX VV VV RR RR SS 

NN NNNN DD DD XX XX VV VV RR RR SS 

NN NN DD DD XX XX VV VV RR RR SS eeee 
NN NN DD DD XxX XX VW VV RR RR SS eeee 
NN NN DDDDDDDD XX XX VV RR RR SSSSSSSS eeee 
NN NN DDDDDDDD XX XX VV RR RR SSSSSSSS cove 
LL III SSSSSSSS 
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LL I] SS 
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F 1 
Main module -=- DSR / DSRPLUS INDEX Utilit 16-Sep-1984 15:44 
. 1o-808- 1382 94:43:33 


AX=-11 Bliss-32 V4.0- 
RUNOFF ..SRCJNDXVRS.BL 


if 


3 1 0001 ZTITLE "Main module == DSR / DSRPLUS INDEX Utility’ 

$ § 8 MODULE NDXVRS (MAIN = $IN 

; 0 IDENT = 'v04-060' 

: ¢ BOR BL ISS5eC, ADDRESSING _MODE(EXTERNAL = LONG_RELATIVE, NONEXTERNAL = LONG_RELATIVE)] 
: 6 0006 

3 7 0007 1 BEGIN 

3 8 0008 1 

3 9 0009 1! 

3 10 Baty : ‘planeta tian nn italia 
3 11 '® a 
; \ pole 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ® 
8 1 001 1 !® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. ® 
; \ Bete ; is ALL RIGHTS RESERVED. . 
Py 3 w 
: 16 0016 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
eet 0017 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
eh Te 0018 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
: 19 0019 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 20 0020 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; $3 oo 1 : - TRANSFERRED. . 
° ;® 

$ $¢ $058 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ® 
2 Se 0024 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT % 
: $2 88 5 : 7 CORPORATION. : 
3 '® 

“ae cg 00 § 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
H 28 0028 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
8 Mea 
° we 

: 31 0031 1 PITITITILILLLL LLL LLL LLL LL LLL LLL TLL LLL LLL Lili 
3 “6 BoRs 1! 

3 00335 1 

: 4 0034 1 !++¢ 

3 5 0035 1 ! FACILITY: 

: : Oso : DSR (Digital Standard RUNOFF) /DSRPLUS DSRINDEX/INDEX Utility 

: #38 0038 1 | ABSTRACT: 

; 9 0039 1! 

: 60 0040 1! Defines the version number for TOPS-20 and VAX versions. 

; re Ones : Changes whenever INDEX code changes and describes the change. 

: rh Boss : VERSION PREFIX CHARACTER CONVENTIONS: 

; «45 bes 1! While building a new version: X 

; «4 § 1! Final Link, but internal: E 

3 6 047 1! Released version: V 

:; 48 Be8 1! 

3 $2 sr} : : ENVIRONMENT: Transportable 

> 53 051 1 | AUTHOR: JPK 

3 ¢ O36 1! 

; i 27 } CREATION DATE: June 1982 
ct ee 55 1 | MODIFIED BY: | 
: $ 2 1} 028 JPK00024 23-May-1983 


NOXVR Main module == DSR / DSRPLUS INDEX UtiLit 18-5 sep-1 AX=11 BLisg-32 V4.0-74 p | 
: =S6p-198¢ 13:07:38 ERUNOFFoSREINDAVRS OL 1 an 


Modified a pt hg eh opr ithe in egreure Now powereeee only 
h word conse! ns only 1 letter or secong letter in word 
Lowercase. Picked up modules PAGMRG and POOL from DSR/DSRPLUS 
since they are no pac used by DSR/DSRPLUS. 


027 PK00023 a) bl - 
Modi tied INDEX, NOXT y pe SNOXVAS to check status of 
$XPO_PARSE _SPEC to avoid error messages from XPORT. 


026 JPK00022 Vener 1983 
Modified NDXVMS, NDXFMT, NDXPAG, NDXVMSMSG and NDXVMSREQ 
to generate TEX output. Added module NDXTEX. 


AAO 
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pee leo lolelejlolololololo) 


NNN SIN NINO AO APOOAOOOOU 


71 0 025 PEOG 021 gonter, wee 

0 Hod fied NDXT20 to include E2.0 functionality. 
7 0 Modified NDXCLIDMP, ne tae NOXPAG, NDXVRS to require RNODEF 
74 0 for BLISS36 and to remove any wetine  t require based on 
a 4 DSRPLUS_DEF. 
a 024 JPK00020 17-Mar-1983 
79 0 for /LAYOUT=GALLEY 


~“ 
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023 JPK00019 14-MAR-1983 
Modified NDXVMS to conditionalize /PAGE_NUMBERS=CNOJMERGE 
and /PAGE_NUMBERS=STANDARD for DSRPLUS only. 


022 JPKO0018 09-Mar-1983 
Modified INDEX to handle new BRN format. 
Modified NDXOUT to handle specifyable levels on SORT= string. 
Modified NDXFMT to output new RUNOFF proses ogue. 
Modified NDXPAG to output new TMS prologue and RUNOFF epilogue. 


021 JPK00017 23-Feb-1983 
Modified NDXINI to in tialize the zero'th entries of LLINES, 
RLINES and a which is where the telltale strings are 
stored by NDXF 
Modified NOXTRT. to urise apgropriste prologue for /TELLTALE, 
peve the seproer 

mark the end of every entry with a NU LL. 

hod’ tied NDXPAG fo © goons the NULL follow each entry to a 
space if LAYOUT ARATE or to a comma otherwise and to 
generate and RS ay By 


020 JPK00016 23-Feb-1983 
Modified NDXVMS to change the default number of Lines per page 
when /TELLTALE is specified but /LINES is not. 


019 JPKO0015 04-Feb-1983 
Cleaned up module nenes. modified revision history se 
conform with established standards. Updated copyright dates. 


018 JPK0001 02-Feb-1983 
Modif ‘4 PERMUTE to remove extra whitespace in index entries. 
Changed module name. 


017 JPK00013 31-Jan-1983 


WN S OONOUNES WN COONOUS WOO 


ate lines for left and orient telltales, and 


te ee et a as 9 9 ss 9 tH 


Modified NDXFMT to generate a *'.NO PAGING’ in the prologue 


FAW OSHS AR AV SSO NS 
es a a a ws ss ss 4 4 4 
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Changed default Bye index level value from 6 to 99 in NDXVMS 
and NOXCLIDMP, This value is the subindexing level. 
It is NOT A HEADER LEVEL. 
016 JPKg00 te 24-Jan-1983 
Modified NDXVMSMSG.MSG to define error messages for both 
DSRINDEX and INDEX. 
Added require of NDXVMSREQ.R32 to NDXOUT, NDXFMT, NDXDAT 
INDEX, NDXMSG, NDXXTN, NDXTMS, NDXVMS and NDXPAG for BLI$S32. 
Since this file defines the error message literals, 
the EXTERNAL REFERENCES for the error message literals 
have been removed. 


015 JPK00011 24-Jan-1983 
Changed CMDBLK CNDX$G_LEVEL] to CMDBLK CNDXS$H_LEVEL] 
Changed <MDBLK [NDXSH_FORMAT] to CMDBLK CNDX$A_LAYOUT) 
Changed CMDBLK CNDX$V be At and CMDBLK CNDX$V_TEX] to CMDBLK CNDXS$H_FORMAT) 


changed comparisons of (.CHRSIZ FaLA CHRSZA) to 
(.CMDBLK CNDXSH_FORMAT) EQL TMS11_A) - 

e 
effected fields were changed in NDXPAG, NDXFMT, INDEX, NDXVMS 


014 JPK00010 24-Jan-1983 
Removed routines GETDAT and UPDDAT from NDXDAT = they 
performed no useful function. Removed references to these 
routines from NDXOUT, NDXFMT, and NDXMSG. 
Removed reference to XPGOL in NDXOUT - not used. 


013 JPKO00009 24-Jan-1983 
Modified to enhance performance. The sort buckets have eac!i 
been divided into 27 sub-buckets; 1 for each letter and 1 
for non-alphas. Removed reference to BUCKET from INDEX. 
Definition of the structure was added to NDXPOL. References 
be LEE] were changed in modules NDXOUT, NDXINI, NDXFMT 
an ° 


012 REROOO0O2 20-Jan-1983 
Modified VMS command Line interface module NDXVMS: 

= changed /FORMAT qualifier to /LAYOUT. 

= changed use of /RESERVE and /REQUIRE for DSRPLUS. 
- adde goge for new DSRPLUS qualifiers /FORMAT and 

ALS LE HEADINGS. 
jelds fo NDXCLI for new qualifiers: NDXS$V_TELLTALE 

and NDXS$V_TEX. 
Conditionalized output of NDX$V_PAGE_ MERGE in NDXCLIDMP to 
account for different DSR and DSRPLUS defauit values. 


REMO0001 11-Jan-1983 
Modified command a tee dumper NDXCLIDMP: 
Updated copyr 


ht date. 
Added more ubtitles and paging. 
Conditionalized output to only report items that are 
other then the derautt velugs. 
Added output of an identifying header. 


010 REROOOO1 17-Dec-1982 


PAPRDRQD_ GAs Be BS BS BS BE EE AIAN WWIII DPN NPN 2 SS SS 
WN OOO NOAUVES WN (OOD NAUE WN SO OONOU EWN OOONOUE WN ODOONOuU 


011 


oa 
uw 


WA. AWINIADIPIPONIPYNIPONPYINY NI 2 PS 


ee eS LL ee ee ee ee ee EE eS SS 
ed ed ed eld eld eel el el el eel eels eels eels els eel eel eel el eel eel eel el el eel cel el cel cel cel cel cell ls cel eel cel cece els cel cel eel cee cl cel cells cls cls calls als cls eal calls cals cca cls el cells cama 


NNO yt eh St thet Ae ae at at at ot ot 1 
ce ee ce ce cl ee eee ce ce el eel cee el el cel el el eel cee el eel el ee ce el ee ce el el ce cee el cee cl eel el eel ee eel eel ee el eel eel cel eel eee cel cel el cl eel cel cece el eld 
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“Sep RUNO 


Modified VMS command Line interface module NDXVMS: 
- Added code to treat keyword NORUNNING in same way as 
keyword STANDARD. 

- Added code for new DSR qualifiers me seaye and /REQUIRE. 

- chenged header level default value from to 6. 

- Conditional is gece to compile for DSRPLUS if BLISS 
/VARIANT = 8 s used; otherwise, fo compile for DSR. 

- Deleted foreign-command code; INDEX is 

as a subcommand of DSR. 


009 JPK00008 19-Nov-1982 
Changed name of POOL.REQ to DMDEFS.REQ in NDXXTN. 


008 JPK00G607 24-Sep-1982 
Reset PAGENO if not concatenated input in INDEX. 


007 JPK00006 eh~Sep~196e 
Modified NDXFMT to ignore REQUIRE file if filename string 
is null. Added oold guide headings for RUNOFF output. 


006 JPK00005 24-Sep-1982 
Removed definition of CHRFWD in NDXINI. No longer needed. 


005 JPK00004 en he 
Modified NDXOUT, NDXMSG, NDXFMT, and NDXDAT for TOPS-20. 
Strings stored in the index pool use the first fullword 
for their length. References to these strings were incorrect. 


004 JPK00003 ig | 
Modified NDXPAG for TOPS- A "SIGNAL was not Ggnete tenet tase 
to produce an $XPO_PUT_MSG if not %BLISS (BLISS32). 
Modified to add requested /TMS=E changes. 


003 JPK00002 16-Sep-1982 
Fix transaction mapping bug in INDEX. This bug occurred only 
when processing more than one input file where a file in the 
middle of the sequence contained no indexing information. 
If there had been rete | one transaction previous to the 
gnoty file, the resul ing page numbers would be incorrect 
but the error would not be discovered by INDEX. If there 
were more than one transaction preceeding the onpty file, 
transaction numbers would appear out of sequence which would 
be reported by INDEX as an internal logic error. 


002 JPKO00001 arta bt 
Removed reference to CLISEND_PARSE in NDXVMS. It is no longer 
supported by VMS. 
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now called 


COW OWOOOOMWO NINA 


ODONAVE WN S(O OOVNAUNE WN (OOONOUL wr 


So 


DEDEDE DIDI DIDI et tt kk kk ak tk 2 ot ot 6 td 0 ot ot 
OU EW — 


o 
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Ne amen pasthdaae eb 
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pt 0 tr ete ORD AG Pet htt hat tr) te ett PE, 


So 
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REQUIRE ‘REQ:RNODEF*; 'RUNOFF definition 
FORWARD ROUTINE 
SINDEX; 


; GLOBAL STORAGE: 


me eB ek a ed ed ed ed ed = dd dd dd 
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Main module == DSR / DSRPLUS INDEX Utility 


SPTR CUPLIT ('X2.8'))), 


ecccecer 


rn (UPLIT (*V2.1-12"))), 


WO DONOUSWN—O” 


ee 


WWWANWAWIANAAAAAAN NA 


SSI SINISE AA AOA AAA OOu 


NAMES WN $9 ODNAUE WN $0 ODNOUSWNOOONAULS WOO 


EXTERNAL REFERENCES: 
EXTERNAL ROUTINE 
NDXCLI; 


GLOBAL ROUTINE SINDEX 
RIF XBLISS(BLISS36) 
THEN 


OOoooceco 


ZIF ZSWITCHES(TOPS10) 
THEN 


PPPS SII EB 


( P1, P2, P3, P4, CCL_OFFSET ) 


oon 
cccccccccr 


GOOoo 
APERIS Sewer OD woe 
WOOO OOOOWM OOOO COCO COCO CDCO NII 


Bers 


%BLISS(BLISS36) 


& 


io 
oOo 


RIF XSWITCHES(TOPS10) 
THEN 


-P1, .P2, .P3, .P4, .CCL_OFFSET 


cccccccccr 


LESRESLS SE 


a a a 8 a a ed ad td ed ts od = = od = a a = SS 8 8 
a a 


BREESE EES FAW AAA AAAI AAA 
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LTITLE NDXVRS Main module <= DSR / DSRPLUS INDEX Utili 
LIDENT \v04-000%. 


AX-11 Bliss-32 V4.0-74 
RUNOFF .SRCJNDXVRS.BLI; 


Version # string 
Length of version string 


Version # string 
Length of version string 


ia B. 
VR Main module == DSR / DSRPLUS INDEX Utili 4 AX- - -0- NOX) 
B80 nsus tex uetitey aera AUASSS Wadd Ob daARE ET rae of] |188 


»PSECT Sita sical ence 
00 32 31 2D 31 2E& 32 56 00000 P.AAA: .ASCII \V2.1-12\<0> 
»PSECT S$GLOBAL$,NOEXE,2 


444 8000 NOXVRP:: .ADDRESS_P.AAA 
0000000 0004 NOXVRL::.LONG 7 


sEXTRN NDXCLI 
-PSECT $CODES,NOWRT,2 


. | 

- | 

s | 

; 

s | 

= | 

| 

= | 

g | 

s | 

. | 

a 

0000 00000 .ENTRY $iNDEX, Save nothin 039 . | 

000000006 EF 00 FB 00002 CALLS. #0. NDXCLI ° : 0395 | 

04 00009 RET 040 ; ! 

; Routine Size: 10 bytes, Routine Base: SCODES + 0000 : | 
: | 

: 280 0410 1 : | 
3 SB 0411 1 END ! End of module = | 
> 282 0412 0 ELUDOM : ! 
| 

5 | 

i = {| 

a 

; PSECT SUMMARY 3 
; Name Bytes Attributes ; 
: $PLITS 8 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) > | 
> $GLOBALS 8 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 3; it 
: $CODES 10 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
: | 

| 

s | 

s | 

a 

; COMMAND QUALIFIERS ; | 
: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:NDXVRS/OBJ=OBJ$:NDXVRS MSRC$:NDXVRS/UPDATE=(ENHS :NDXVRS) 3 ! 
3; Size: 10 ode + 16 data bytes : | 
; i fees 09: 5 . | 
; Elapsed Time 930 Ms s | 
3 Lines/CPU Min: 97 | 
3 Lexemes/CPU-Min: 8276 oe 
; oy Ue Used: 13 pages wid 
3; Compilaticn Complete : | 
: | 

| 
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